home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mesolore
/
Mesolore - Disc 2.iso
/
mac
/
data
/
Selden.dir
/
00052_Script_52
< prev
next >
Wrap
Text File
|
2001-03-05
|
2KB
|
67 lines
on mouseDown
-- set clickline = flashline()
set clickline = the mouseLine
case clickline of
1,2: showtrans "using codices"
3:goto "selden_layout","tutorial"
4:goto 173,"tutorial"
5,6:goto "selden_anim","entries"
10,11:goto "Codices_List","tutorial"
12,13:goto "Mixteca_List","tutorial"
16:goto "Action_List","tutorial"
17:goto "Land_List","tutorial"
18:goto "Keeping_List","tutorial"
19:goto "Body_List","tutorial"
20:goto "Lyrics_List","tutorial"
23:goto "mixtecazoom","atlas"
findTown "Andua-S AndrΘs",415,350
24:goto "mixtecazoom","atlas"
findTown "Apoala-Santiago",466,271
25:goto "mixtecazoom","atlas"
findTown "Chalcatongo-Sta Marφa",325,488
26:goto "mixtecazoom","atlas"
findTown "Cuilapan", 598,504
27:goto "mixtecazoom","atlas"
findTown "Flints",417,429
28:goto "mixtecazoom","atlas"
findTown "Hua",433,409
29:goto "mixtecazoom","atlas"
findTown "Jaltepec-Magdalena",437,389
30:goto "mixtecazoom","atlas"
findTown "Suchixtlßn-Sta Marφa",408,326
31:goto "mixtecazoom","atlas"
findTown "Teozacoalco",417,493
32:goto "mixtecazoom","atlas"
findTown "Tequixtepec2",285,131
33:goto "mixtecazoom","atlas"
findTown "Tilantongo",400,400
34:goto "mixtecazoom","atlas"
findTown "Tiyuqu",612,479
35:goto "mixtecazoom","atlas"
findTown "Tlaxiaco-Sta Marφa",294,408
36:goto "mixtecazoom","atlas"
findTown "Yucu2",614,479
37:goto "mixtecazoom","atlas"
findTown "Zahußtlßn",180,203
end case
abort
end
on findTown town, p1, p2
temp = town
if temp contains"-" then
set the itemdelimiter = "-"
cityname = word 1 of item 1 of temp
else
cityname = item 1 of temp
end if
set the itemdelimiter = ","
fullname = town
coords = "point(" & p1 & "," & p2 & ")"
findCity coords,cityname,fullname
end